home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / bigdemo2.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  20 lines
  1. 1 ' *** GADGET *** BIGDEMO2 ***
  2. 5 DEFSEG=0:IFtest<>PI/2;VAC:DIMA$(3,7),B$(9),C$(5),D$(7):MODE6ELSEMODE5
  3. 10 CLS:PRINT:E$="0000000000":B$=" GADGET":FORI=1TO6:DEFCHR$(255)=E$:PRINTCSR13LEFT$(B$,I)CHR$(255);:READA$:$=E$+A$:FORJ=1TO11STEP2:DEFCHR$(255)=MID$($,J,10):NEXTJ,I:FORI=13TO24:PRINTCSRI;B$;:NEXT
  4. 20 IFtest=PI/2;FORI=25TO0STEP-1:PRINTCSRI;B$" ";:NEXTELSEL=1:FORI=0TO3:READ$:FORJ=0TO7:L=L-(L<25)+(L>24):FORK=1TO10STEP2:A=VAL("&H"+MID$($,K,2))/2^J:A$(I,J)=A$(I,J)+RIGHT$(HEX$(A),2):NEXT:PRINTCSR25-L;B$" ";:NEXTJ,I:test=PI/2
  5. 30 FORI=252TO255:DEFCHR$(I)=E$:PRINTCSRI-244CHR$(I);:NEXT:FORK=0TO1:FORI=0TO3:FORJ=7TO0STEP-1:DEFCHR$(I+252)=A$(I,J):NEXT:FORJ=0TO7:DEFCHR$(I+252)=A$(I,J):NEXTJ,I,K:FORI=0TO3:FORJ=7TO0STEP-1:DEFCHR$(I+252)=A$(I,J):NEXTJ,I:B$=B$+" from "
  6. 40 FORJ=0TO1:FORI=0TO31:PRINTCSRI;B$;:NEXT:FORI=31TO0STEP-1:PRINTCSRI;B$;:NEXTI,J
  7. 50 RESTORE1020:yy=1:$="":FORI=0TO3:READA$:$=$+A$+"0000":NEXT:$=E$+$+$:FORJ=0TO9:PRINTCSRJ;CHR$(255)CHR$(255)MID$(B$,2,11)CSR31-J;CHR$(255);:GOSUB500:NEXT:LOCATE0,0
  8. 60 A$="Presente sa mini-demo ":FORI=1TO11:PRINTCSR16-I;LEFT$(A$,I*2);:GOSUB500:NEXT:RESTORE1030:FORI=0TO9:READB$(I):GOSUB500:NEXT:FORI=0TO1:PRINTCSRI*3;CHR$(252)CHR$(253)CSR30-I*3;CHR$(252)CHR$(253);:NEXT
  9. 70 FORI=252TO254:DEFCHR$(I)=E$:NEXT:RESTORE1040:FORI=0TO5:READC$(I):GOSUB500:NEXT:p=32:FORI=0TO9:FORJ=0TO9:DEFCHR$(252)=B$(9-I):DEFCHR$(253)=B$(9-J):GOSUB550:GOSUB500:NEXTJ,I:FORI=0TO500:LOCATE0,0:GOSUB500:LOCATE0,3:GOSUB500:NEXT
  10. 499 GOSUB500:GOTO499
  11. 500 yy=yy+2:IFyy>58;yy=1
  12. 510 MODE(yy MOD3)+4:DEFCHR$(255)=MID$($,yy,10):RETURN
  13. 550 IFp<64;POKEp+64,PEEK(p):POKEp-32,255:p=p+1
  14. 560 RETURN
  15. 1000 DATA7C8292925E,7E9090907E,FE82824438,7C8292925E,FE92929282,8080FE8080
  16. 1010 DATA00207EA080,3E10202010,1C2222221C,3E201E201E
  17. 1020 DATAFE807080FE,FE82828282,F29292929E,0000000000
  18. 1030 DATA6C8282826C,000000006C,0C92929260,009292926C,601010106C,609292920C,6C9292920C,008080806C,6C9292926C,609292926C
  19. 1040 DATA000000FEFE,00FEFE00FE,FE00000000,061E3EF0C0,00FEFE00C0,F03E1E0600
  20.